home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb19645.lsp < prev    next >
Text File  |  1998-03-15  |  6KB  |  147 lines
  1. ;=============196.45 WINKELSTELLFUß
  2.  
  3. (defun C:19645D1 (/ P1 W)
  4.    (EAITDBL "0019645")
  5.    (princ (strcat "\n\n" EAITbez1))
  6.    (EAITvari)
  7.    (EAITvars)
  8.    (setvar "ORTHOMODE" 0)
  9.    (EAITbpt nil nil nil)
  10.    (setq P1 (getpoint))
  11.    (if (= P1 nil)(setq P1 (EAITrpt)))
  12.    (setvar "OSMODE" 0)
  13.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  14.    (setq W (getangle P1))
  15.    (cond
  16.      ((= W nil) (progn
  17.                     (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  18.                     (command EAITege (strcat EAITpfn "19645d1") P1 "" "" EAITofkei pause)
  19.                     (setq W (+ 135 (EAITbig (EAITbw))))
  20.                 )
  21.      )
  22.      ((and (>= (EAITbig W)   0)(< (EAITbig W)  90)) (progn  (command EAITege (strcat EAITpfn "19645d2") P1 "" "" EAITofkei "")(setq W 45)))
  23.      ((and (>= (EAITbig W)  90)(< (EAITbig W) 180)) (progn  (command EAITege (strcat EAITpfn "19645d1") P1 "" "" EAITofkei "")(setq W 135)))
  24.      ((and (>= (EAITbig W) 180)(< (EAITbig W) 270)) (progn  (command EAITege (strcat EAITpfn "19645d2") P1 "" "" EAITofkei "180")(setq W 225)))
  25.      (T                                     (progn  (command EAITege (strcat EAITpfn "19645d1") P1 "" "" EAITofkei "180")(setq W 315)))
  26.    )
  27.  
  28.  
  29.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib W) 5)  "" "" ""
  30.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  31.    )
  32.  
  33.    (EAITvarz2)
  34.    (princ)
  35. )
  36.  
  37.  
  38. (defun C:19645D2 (/ P1 W)
  39.    (EAITDBL "0019645")
  40.    (princ (strcat "\n\n" EAITbez1))
  41.    (EAITvari)
  42.    (EAITvars)
  43.    (setvar "ORTHOMODE" 0)
  44.    (EAITbpt nil nil nil)
  45.    (setq P1 (getpoint))
  46.    (if (= P1 nil)(setq P1 (EAITrpt)))
  47.    (setvar "OSMODE" 0)
  48.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  49.    (setq W (getangle P1))
  50.    (cond
  51.      ((= W nil) (progn
  52.                     (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  53.                     (command EAITege (strcat EAITpfn "19645d1") P1 "" "" EAITofkei pause)
  54.                     (setq W (+ 135 (EAITbig (EAITbw))))
  55.                 )
  56.      )
  57.      ((and (>= (EAITbig W)   0)(< (EAITbig W)  90)) (progn (command EAITege (strcat EAITpfn "19645d1") P1 "" "" EAITofkei "270")(setq W 45)))
  58.      ((and (>= (EAITbig W)  90)(< (EAITbig W) 180)) (progn (command EAITege (strcat EAITpfn "19645d2") P1 "" "" EAITofkei "90")(setq W 135)))
  59.      ((and (>= (EAITbig W) 180)(< (EAITbig W) 270)) (progn (command EAITege (strcat EAITpfn "19645d1") P1 "" "" EAITofkei "90")(setq W 215)))
  60.      (T                                     (progn (command EAITege (strcat EAITpfn "19645d2") P1 "" "" EAITofkei "270")(setq W 315)))
  61.    )
  62.  
  63.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib W) 5)  "" "" ""
  64.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  65.    )
  66.  
  67.    (EAITvarz2)
  68.    (princ)
  69. )
  70.  
  71.  
  72.  
  73.  
  74.  
  75. (defun C:19645S1 (/ P0 P1 H W)
  76.    (EAITDBL "0019645")
  77.    (princ (strcat "\n\n" EAITbez1))
  78.    (EAITvari)
  79.    (EAITvars)
  80.    (EAITbpt nil nil nil)
  81.    (setq P1 (getpoint))
  82.    (if (= P1 nil)(setq P1 (EAITrpt)))
  83.    (setvar "OSMODE" 0)
  84.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  85.    (setq P0 (getpoint P1))
  86.    (initget (+ 2 4))
  87.    (EAITmsg "mb_mld10" "\n" "025" nil)(EAITmsg "mb_mld10" nil "029" " ")   ;Höhe: <35> 
  88.    (setq H (getdist))
  89.    (if (= H nil)(setq H 35))
  90.    (while (or (< H 10) (> H 70))
  91.           (EAITmsg "mb_mld10" "\n\n  " "021" nil)(EAITmsg "mb_mld10" nil "035" " ")   ;Ungültige Laenge:  min. 10mm  max. 70mm
  92.           (initget (+ 2 4))
  93.           (EAITmsg "mb_mld10" "\n\n" "025" nil)(EAITmsg "mb_mld10" nil "029" " ")   ;Höhe: <35> 
  94.           (setq H (getdist))
  95.           (if (= H nil)(setq H 35))
  96.    )
  97.    (if (> (car P0)(car P1))
  98.       (progn (command EAITege (strcat EAITpfn "19645s2") (list (car P1)(- (cadr P1) H)) "" "" "")(setq W 45))
  99.       (progn (command EAITege (strcat EAITpfn "19645s1") (list (car P1)(- (cadr P1) H)) "" "" "")(setq W 135))
  100.    )
  101.  
  102.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (EAITbp)(EAITgib W) 5)  "" "" ""
  103.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  104.    )
  105.  
  106.    (EAITvarz2)
  107.    (princ)
  108. )
  109.  
  110.  
  111.  
  112. (defun C:19645V1 (/ P0 P1 H W)
  113.    (EAITDBL "0019645")
  114.    (princ (strcat "\n\n" EAITbez1))
  115.    (EAITvari)
  116.    (EAITvars)
  117.    (EAITbpt nil nil nil)
  118.    (setq P1 (getpoint))
  119.    (if (= P1 nil)(setq P1 (EAITrpt)))
  120.    (setvar "OSMODE" 0)
  121.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  122.    (setq P0 (getpoint P1))
  123.    (initget (+ 2 4))
  124.    (EAITmsg "mb_mld10" "\n" "025" nil)(EAITmsg "mb_mld10" nil "029" " ")   ;Höhe: <35> 
  125.    (setq H (getdist))
  126.    (if (= H nil)(setq H 35))
  127.    (while (or (< H 10) (> H 70))
  128.           (EAITmsg "mb_mld10" "\n\n  " "021" nil)(EAITmsg "mb_mld10" nil "035" " ")   ;Ungültige Laenge:  min. 10mm  max. 70mm
  129.           (initget (+ 2 4))
  130.           (EAITmsg "mb_mld10" "\n\n" "025" nil)(EAITmsg "mb_mld10" nil "029" " ")   ;Höhe: <35> 
  131.           (setq H (getdist))
  132.           (if (= H nil)(setq H 35))
  133.    )
  134.    (if (> (car P0)(car P1))
  135.       (progn (command EAITege (strcat EAITpfn "19645v1") (list (car P1)(- (cadr P1) H)) "" "" "")(setq W 45))
  136.       (progn (command EAITege (strcat EAITpfn "19645v1") (list (- (car P1)40)(- (cadr P1) H)) "" "" "")(setq W 45))
  137.    )
  138.  
  139.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (EAITbp)(EAITgib W) 5)  "" "" ""
  140.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  141.    )
  142.  
  143.    (EAITvarz2)
  144.    (princ)
  145. )
  146. (princ)
  147.